home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Disksavers / TSO / Install-TSO < prev    next >
Text File  |  1996-09-26  |  7KB  |  263 lines
  1. ; TSO II installation file
  2. ; version 1.0
  3. ; by Twins
  4. ; 1/6/95
  5. ;
  6.  
  7. (if (= @language "deutsch")
  8.   (
  9.     (set langbit 1)     ; used below when selecting language to install
  10.     (set txt_NoVersion (cat
  11.       "TSO II läuft nicht mit der Version %ld von AmigaDOS! "
  12.       "Wählen Sie \"Fortfahren\", um TSO II dennoch zu installieren, "
  13.       "oder \"Abbruch\", um die Installation zu beenden.")
  14.     )
  15.     (set txt_NoVersionHelp (cat
  16.       "Wenn Sie beabsichtigen, in kürzerer Zeit auf eine neuere Version "
  17.       "des AmigaDOS umzusteigen, kann es sinnvoll sein, TSO II dennoch "
  18.       "zu installieren, auch wenn man ihn bis dahin nicht benutzen kann. "
  19.       "Sollten Sie nicht daran denken wenigstens auf Version 2.04 des "
  20.       "AmigaDOS umzusteigen, brechen Sie die Installation hier ab "
  21.       "und verzichten Sie auf die Benutzung von TSO II ganz.")
  22.     )
  23.     (set txt_AbortMsg
  24.       "Die Installation wurde abgebrochen, ohne etwas zu installieren."
  25.     )
  26.     (set txt_Install
  27.       "Fortfahren"
  28.     )
  29.     (set txt_Cancel
  30.       "Abbruch"
  31.     )
  32.     (set txt_DrawerPrompt (cat
  33.       "Wohin sollen die TSO II Dateien kopiert werden? (Ein Verzeichnis "
  34.       "mit dem Namen TSO wird dort erstellt!)")
  35.     )
  36.     (set txt_SelectLangs
  37.       "Wählen Sie die Sprachen, die installiert werden sollen."
  38.     )
  39.     (set txt_SelectLangsHelp (cat
  40.       "Ab der Version 2.1 des AmigaDOS werden unterschiedliche "
  41.       "Sprachen vom System unterstützt. Die Texte werden dann "
  42.       "in der gewünschten Sprache ausgegeben.\n"
  43.       "Wählen Sie bitte die Sprachen aus, von denen Sie der "
  44.       "Meinung sind, sie jetzt oder in Zukunft zu benutzen. "
  45.       "Natürlich können Sie auch mehr oder andere Sprachen "
  46.       "später noch installieren. In zukünftigen Versionen "
  47.       "werden noch weitere Sprachen folgen.")
  48.     )
  49.     (set txt_LocaleDir (cat
  50.       "Wollen Sie die Sprachanpassungsdateien in das LOCALE:Catalogs/-"
  51.       "oder in das PROGDIR:Catalogs/-Verzeichnis kopieren?")
  52.     )
  53.     (set txt_LocaleDirHelp (cat
  54.       "Der Installer muß wissen, wohin Sie die Sprachanpassungsdateien "
  55.       "kopiert haben wollen. Das System sucht diese Dateien sowohl im "
  56.       "LOCALE:Catalogs/-Verzeichnis als auch im PROGDIR:Catalogs/-"
  57.       "Verzeichnis. Dies bedeutet, daß in dem Verzeichnis, in dem sich "
  58.       "die ausführbare Datei befindet nach einem Verzeichnis Catalogs "
  59.       "gesucht wird.")
  60.     )
  61.   )
  62. )
  63. (if (= @language "english")
  64.   (
  65.     (set langbit 0)     ; used below when selecting language to install
  66.     (set txt_NoVersion (cat
  67.       "TSO II can't run under version %ld of AmigaDOS! "
  68.       "Select \"Install\" if you still want to install TSO II "
  69.       "or press \"Cancel\" to "
  70.       "stop the installation process.")
  71.     )
  72.     (set txt_NoVersionHelp (cat
  73.       "If you intend to run a newer version of AmigaDOS within a limited "
  74.       "period, it might make sense to install TSO II even if it can't "
  75.       "be used until that upgrade. If you are not considering upgrading "
  76.       "to at least version 2.04, then you should cancel the installation "
  77.       "right now and forget about using TSO II!")
  78.     )
  79.     (set txt_AbortMsg
  80.       "Nothing was installed!"
  81.     )
  82.     (set txt_Install
  83.       "Install"
  84.     )
  85.     (set txt_Cancel
  86.       "Cancel"
  87.     )
  88.     (set txt_DrawerPrompt (cat
  89.       "In which drawer do you want your TSO II files to be installed? (A "
  90.       "directory will be made by the installer.)")
  91.     )
  92.     (set txt_SelectLangs
  93.       "Select the languages that you want installed!"
  94.     )
  95.     (set txt_SelectLangsHelp (cat
  96.       "From AmigaDOS version 2.1, there is locale support "
  97.       "for software to keep databases for different "
  98.       "languages to support output in your native language.\n"
  99.       "Select the languages that you think you will use, now or "
  100.       "in the future. You can of course install more/different "
  101.       "catalogs at a later time. More catalogs are likely to "
  102.       "appear in future releases and revisions!")
  103.     )
  104.     (set txt_LocaleDir (cat
  105.       "Would you like to put the catalogs in the LOCALE:catalogs/ "
  106.       "or in the PROGDIR:catalogs/ drawer/partition?")
  107.     )
  108.     (set txt_LocaleDirHelp (cat
  109.       "The installer has to know where you want the catalogs installed. "
  110.       "The system will look for them in Locale:Catalogs/ and in "
  111.       "PROGDIR:Catalogs/")
  112.     )
  113.   )
  114. )
  115.  
  116. ;*****************************************************************************
  117. ;
  118. ; END OF LANGUAGE DEFINES, START OF *REAL* INSTALLATION
  119. ;
  120. ;*****************************************************************************
  121.  
  122. ; Prompt users running anything lower than V37 whether installing TSO II
  123. ; since it won't run on such machines!
  124.  
  125. (set amigaversion (/ (getversion) 65536))
  126.  
  127. (if (< amigaversion 37)
  128.    (if (not (askbool
  129.                (prompt (txt_NoVersion amigaversion))
  130.                (choices txt_Install txt_Cancel)
  131.                (help txt_NoVersionHelp)
  132.             )
  133.        )
  134.        (abort txt_AbortMsg)
  135.    )
  136. )
  137.  
  138. (complete 10)
  139.  
  140. (set tsodest
  141.    (askdir
  142.       (prompt txt_DrawerPrompt)
  143.       (help @askdir-help)
  144.       (default @default-dest)
  145.    )
  146. )
  147. (
  148.   (makedir (tackon tsodest "TSO"))
  149.   (set tsodest (tackon tsodest "TSO"))
  150. )
  151.  
  152. (complete 20)
  153.  
  154. ; Get locale information
  155. (set catalog (askoptions
  156.                (prompt txt_SelectLangs)
  157.                (choices "Deutsch")
  158.                (help txt_SelectLangsHelp)
  159.                (default langbit)
  160.              )
  161. )
  162.  
  163. (complete 30)
  164.  
  165. (
  166.    (delete "LOCALE:catalogs/deutsch/TSO.catalog" )
  167.    (delete (tackon tsodest "catalogs/deutsch/TSO.catalog") )
  168. )
  169.  
  170. (if catalog
  171.    (
  172.       (if (> 2 @user-level)
  173.          (
  174.             (set localedir "LOCALE:")
  175.          )
  176.          (set localedir
  177.             (askbool
  178.                (prompt txt_LocaleDir)
  179.                (choices "LOCALE:" "PROGDIR:")
  180.                (default 1)
  181.                (help txt_LocaleDirHelp)
  182.             )
  183.          )
  184.       )
  185.       (if localedir
  186.          (
  187.             (if (not (exists "locale:" (noreq)))
  188.                (
  189.                 (makedir "sys:Locale")
  190.                 (makeassign  "locale" "sys:locale")
  191.                )
  192.             )
  193.        
  194.             (if (not (exists "Locale:Catalogs"))
  195.                (makedir "Locale:Catalogs")
  196.             )
  197.             (set catalogdest "Locale:Catalogs/")
  198.          )
  199.          (
  200.             (set catalogdest (tackon tsodest "Catalogs"))
  201.             (makedir catalogdest)
  202.          )
  203.       )
  204.       (if (IN catalog 0)
  205.          (
  206.             (makedir (tackon catalogdest "Deutsch"))
  207.             (copyfiles
  208.                (source "Catalogs/Deutsch")
  209.                (dest (tackon catalogdest "Deutsch"))
  210.                (infos)
  211.                (all)
  212.             )
  213.          )
  214.       )
  215.    )
  216. )
  217.  
  218. (complete 40)
  219.  
  220.  
  221. ; Start copying files to destination!
  222. (set @default-dest tsodest)
  223.  
  224. (complete 50)
  225.  
  226. (copyfiles
  227.    (source "")
  228.    (dest tsodest)
  229.    (infos)
  230.    (pattern "docs#?" )
  231. )
  232.  
  233. (complete 70)
  234.  
  235. (copyfiles
  236.    (source "")
  237.    (dest tsodest)
  238.    (infos)
  239.    (pattern "infos#?" )
  240. )
  241.  
  242. (complete 80)
  243.  
  244. (copyfiles
  245.    (source "")
  246.    (dest tsodest)
  247.    (infos)
  248.    (pattern "TIMER#?" )
  249. )
  250.  
  251. (complete 90)
  252.  
  253. (copyfiles
  254.    (help @copyfiles-help)
  255.    (source "")
  256.    (dest tsodest)
  257.    (infos)
  258.    (pattern "TSO#?" )
  259. )
  260.  
  261. (complete 100)
  262.  
  263.